(mail-strip-quoted-names): Don't delete angle brackets

when there's a colon inside them.

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 286c86ea4ddc1136e9748320f430021168c27e43..c234411ac8708342d82fdc81df1a03d345090193 100644 (file)
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -160,7 +160,7 @@ Return a modified address list."
                 (mail-string-delete address
                                     pos (match-end 0)))))
        ;; Retain only part of address in <> delims, if there is such a thing.
-       (while (setq pos (string-match "\\(,\\s-*\\|\\`\\)[^,]*<\\([^>,]*>\\)"
+       (while (setq pos (string-match "\\(,\\s-*\\|\\`\\)[^,]*<\\([^>,:]*>\\)"
                                      address))
         (let ((junk-beg (match-end 1))
               (junk-end (match-beginning 2))